home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8506c.d64 / scr 5 < prev    next >
Text File  |  1995-03-30  |  259b  |  26 lines
  1.  : MLEN$
  2.     2 - @
  3.  ;
  4.  : LEN$
  5.     DUP 1 -
  6.     BEGIN
  7.       1 + DUP
  8.       C@
  9.      0 =
  10.     UNTIL
  11.     SWAP -
  12.  ;
  13.  : INPUT$
  14.     DUP DUP MLEN$
  15.     ." :" EXPECT
  16.     1 -
  17.     BEGIN
  18.       1 + DUP C@
  19.      13 =
  20.     UNTIL
  21.     0 SWAP C! DROP
  22.  ;
  23.  : PRINT$ DUP LEN$ TYPE ;
  24.  
  25.